home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Organizational Aids / Flash Card Template / background_2697.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  3.6 KB  |  178 lines
  1. -- background: 2697 from stack: in
  2. -- bmap block id: 3779
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   set textFont of background button "Otvet" to Moscow
  9.   hide message box
  10.   hide field 2
  11.   show menuBar
  12.   pass openStack
  13. end openStack
  14.  
  15.  
  16.  
  17. -- part 9 (button)
  18. -- low flags: 00
  19. -- high flags: 0000
  20. -- rect: left=228 top=298 right=321 bottom=254
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 1014 / 1014
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: Prev
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   hide field 2
  32.   visual effect scroll right
  33.   go to prev card
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 16 (field)
  39. -- low flags: 01
  40. -- high flags: 0002
  41. -- rect: left=37 top=122 right=207 bottom=237
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: 
  50.  
  51.  
  52. -- part 17 (field)
  53. -- low flags: 81
  54. -- high flags: 0004
  55. -- rect: left=162 top=215 right=300 bottom=362
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 256
  62. -- line height: 16
  63. -- part name: 
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   hide field 2
  67. end mouseUp
  68.  
  69.  
  70.  
  71.  
  72. -- part 18 (button)
  73. -- low flags: 00
  74. -- high flags: A003
  75. -- rect: left=392 top=211 right=265 bottom=434
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 14767 / 14767
  78. -- text alignment: 1
  79. -- font id: 129
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Answer
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   show field 2
  87. end mouseUp
  88.  
  89.  
  90.  
  91.  
  92.  
  93. -- part 20 (field)
  94. -- low flags: 00
  95. -- high flags: 4004
  96. -- rect: left=279 top=121 right=206 bottom=479
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 0
  100. -- font id: 3
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: 
  105.  
  106.  
  107. -- part 22 (button)
  108. -- low flags: 00
  109. -- high flags: 0000
  110. -- rect: left=17 top=31 right=66 bottom=53
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 20098 / 20098
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Home Button
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   go home
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 30 (button)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=256 top=298 right=321 bottom=281
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 1013 / 1013
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Next
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   put word 1 of field 3 into newString
  141.   put 1 into numStudentWords
  142.   put 2 into X
  143.   put " " into nextWord
  144.   repeat while nextWord <> ""
  145.     put word X of field 3 into nextWord
  146.     if nextWord is empty then exit repeat
  147.     put newString && word X of field 3 into newString
  148.     put numStudentWords + 1 into numStudentWords
  149.     put X + 1 into X
  150.   end repeat
  151.   put newString into Student
  152.  
  153.   put word 1 of field 2 into newString
  154.   put 1 into numCorrectWords
  155.   put 2 into X
  156.   put " " into nextWord
  157.   repeat while nextWord <> ""
  158.     put word X of field 2 into nextWord
  159.     if nextWord is empty then exit repeat
  160.     put newString && word X of field 2 into newString
  161.     put numCorrectWords + 1 into numCorrectWords
  162.     put X + 1 into X
  163.   end repeat
  164.   put newString into Correct
  165.  
  166.   if correct = student
  167.   then answer "That is correct" with "OK"
  168. else answer "That is wrong" with "Try Again" or "OK"
  169. if It = "Try Again"
  170. then exit mouseUp
  171. visual effect scroll left
  172. hide field 2
  173. go to next card
  174. tabKey
  175. end mouseUp
  176.  
  177.  
  178.